home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / PSHD_1020 < prev    next >
Encoding:
Text File  |  1997-08-25  |  2.7 KB  |  61 lines
  1. /shgr{chc 0 get 1 eq{100 45{dup mul exch dup mul add 1. exch sub}setscreen
  2.  .8}{1}ifelse H}def
  3. /setchc{chc exch 0 exch put}B
  4. /chkch{currentfont dup/Encoding 2 copy known{get 2 index 0 get get dup/.notdef ne
  5.  {exch/CharStrings 2 copy known{get exch known not}{p3 T}ifelse}
  6.  {p2 T}ifelse}{p3 T}ifelse}B
  7. /xpsh{doss ss and{sym fmtx makefont/xpfs X
  8.  {s1 0 3 -1 roll put
  9.  s1 chkch{g xpfs setfont M cps G mif}
  10.  {M}ifelse}forall}{M}ifelse}B
  11. /xpash{doss ss and{sym fmtx makefont/xpfs X
  12.  {s1 0 3 -1 roll put 2 copy
  13.  s1 chkch{g xpfs setfont N cps G mif}
  14.  {N}ifelse}forall p2}{N}ifelse}B
  15. /xpwsh{doss ss and{sym fmtx makefont/xpfs X
  16.  {s1 0 3 -1 roll put 3 copy
  17.  s1 chkch{g xpfs setfont Y cps G mif}
  18.  {Y}ifelse}forall p3}{Y}ifelse}B
  19. /xpawsh{doss ss and{sym fmtx makefont/xpfs X
  20.  {s1 0 3 -1 roll put 5 copy
  21.  s1 chkch{g xpfs setfont Q cps G mif}
  22.  {Q}ifelse}forall p2 p3}{Q}ifelse}B
  23. /d{dup doss ss and{sym fmtx makefont/xpfs X
  24.  0 0 3 -1 roll{s1 0 3 -1 roll put
  25.  s1 chkch{g xpfs setfont w G}
  26.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  27.  {w}ifelse pop 3 -1 roll sub 3 -1 roll div
  28.  3 -1 roll exch sub 0 32 3 -1 roll 0 5 -1 roll
  29.  doss ss and{xpash p3}{Q}ifelse}B
  30. /D{dup doss ss and{sym fmtx makefont/xpfs X
  31.  0 0 3 -1 roll{s1 0 3 -1 roll put
  32.  s1 chkch{g xpfs setfont w G}
  33.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  34.  {w}ifelse pop 3 -1 roll exch sub 3 -1 roll div 0 3 -1 roll xpash}B
  35. /ssh{2 copy g dup vtd{neg}if rm shgr xpsh pop G xpsh}B
  36. /std{6 copy g dup vtd{neg}if rm shgr d pop G d}B
  37. /mc{0 3 1 roll transform neg exch pop}B
  38. /sgt{2 copy known{get T}{p2 F}ifelse}B
  39. /kif{currentfont dup/FontMatrix get exch/FontInfo sgt{T}{currentfont/df sgt
  40.   {dup/FontInfo sgt{3 1 roll/FontMatrix get mtx concatmatrix exch T}{p3 F}
  41.   ifelse}{p2 F}ifelse}ifelse{3 -1 roll sgt{exch T}{pop F}ifelse}{F}ifelse}B
  42. /ul{g/@1 X{90 rotate 1 -1 S}if/@2 X/@3 X/@4 X @3 0 lt{
  43.  @1{/UnderlinePosition kif{mc neg ulpmax 0 ne{dup @3 div abs ulpmax gt
  44.  {pop T}{F}ifelse}{F}ifelse}{T}ifelse}{T}ifelse{@3 -10 div}if
  45.  @2 1 and 0 ne{@4 div}if
  46.  @1{/UnderlineThickness kif{mc ultmax 0 ne{dup @3 div abs ultmax gt
  47.  {pop T}{F}ifelse}{F}ifelse}{T}ifelse}{T}ifelse{@3 -15 div}if
  48.  @2 1 and 0 ne{@4 div}if}{@3}ifelse abs
  49.  @1{currentfont/TrapWidth sgt}{F}ifelse not{0}if
  50.  dup dup 2. div dup dup 0 lt{pop 0}if/@1 X
  51.  neg 5 -1 roll rm 3 -1 roll add dup 0 lt{pop 0}if o
  52.  add dup 0 lt{pop 0}if currentpoint np m
  53.  @2 16 and 0 ne{g @2 8 and 0 eq{shgr}if currentlinewidth 2. div dup
  54.  rm dup 0 rl n G}if @2 8 and 0 ne dup
  55.  {g gtc 1 index 0 rl n G}if
  56.  {@1 sub @1 2. div 0 rm currentlinewidth @1 sub o
  57.  currentpoint np currentlinewidth 2. div sub m dup 0 rl
  58.  0 currentlinewidth @2 512 and 0 eq{rl}{rm}ifelse
  59.  neg 0 rl @2 256 and 0 eq{0 currentlinewidth neg rl}if
  60.  xpys @1 add o 2 a}{0 rl}ifelse n G}B
  61.